home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE09 / CONSTRUC / IMAGEFRM.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-11  |  2KB  |  81 lines
  1. unit Imagefrm;
  2. interface
  3. uses
  4. {$IFDEF WIN32}
  5.   Windows,
  6. {$ELSE}
  7.   WinTypes, WinProcs,
  8. {$ENDIF}
  9.   SysUtils, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
  10.   StdCtrls, Buttons, Outline, DirOutln, FileCtrl, Grids;
  11.  
  12. type
  13.   TImageForm = class(TForm)
  14.     LabelDrives: TLabel;
  15.     DriveComboBox: TDriveComboBox;
  16.     LabelDirs: TLabel;
  17.     DirectoryOutline: TDirectoryOutline;
  18.     LabelFiles: TLabel;
  19.     FileListBox: TFileListBox;
  20.     Path: TLabel;
  21.     OkBitBtn: TBitBtn;
  22.     CancelBitBtn: TBitBtn;
  23.     ImageDrBob: TImage;
  24.     Stretch: TCheckBox;
  25.     procedure DirectoryOutlineChange(Sender: TObject);
  26.     procedure DriveComboBoxChange(Sender: TObject);
  27.     procedure FileListBoxDblClick(Sender: TObject);
  28.     procedure FileListBoxChange(Sender: TObject);
  29.     procedure StretchClick(Sender: TObject);
  30.   end;
  31.  
  32. Const
  33.   ImageForm: TImageForm = nil;
  34.  
  35. implementation
  36. {$R *.DFM}
  37.  
  38. procedure TImageForm.DriveComboBoxChange(Sender: TObject);
  39. begin
  40.   DirectoryOutline.Drive := DriveComboBox.Drive
  41. end;
  42.  
  43. procedure TImageForm.DirectoryOutlineChange(Sender: TObject);
  44. begin
  45.   Path.Caption := DirectoryOutline.Directory;
  46.   FileListBox.Directory := DirectoryOutline.Directory
  47. end;
  48.  
  49. procedure TImageForm.StretchClick(Sender: TObject);
  50. begin
  51.   ImageDrBob.Stretch := (Sender AS TCheckBox).Checked
  52. end;
  53.  
  54. procedure TImageForm.FileListBoxChange(Sender: TObject);
  55. begin
  56.   if (FileListBox.ItemIndex >= 0) then
  57.   begin
  58.     OkBitBtn.Enabled := True;
  59.     try
  60.       Screen.Cursor := crHourGlass;
  61.       try
  62.         with FileListBox do
  63.           ImageDrBob.Picture.LoadFromFile(Items[ItemIndex])
  64.       except
  65.         ImageDrBob.Picture.Free
  66.       end
  67.     finally
  68.       Screen.Cursor := crDefault;
  69.     end
  70.   end
  71.   else
  72.     OkBitBtn.Enabled := False
  73. end;
  74.  
  75. procedure TImageForm.FileListBoxDblClick(Sender: TObject);
  76. begin
  77.   ModalResult := mrOk
  78. end;
  79.  
  80. end.
  81.